home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 48
/
PC Gamer IT CD 48 2-2.iso
/
utility
/
nmail28u
/
_SETUP.1
/
NETMAIL.EXE
/
0
/
RCDATA
/
TNEWMESSAGEFORM
/
TNEWMESSAGEFORM.txt
Wrap
Text File
|
1999-09-10
|
38KB
|
1,153 lines
object NewMessageForm: TNewMessageForm
Left = 2
Top = 94
HelpContext = 40
AutoScroll = False
Caption = 'New Message'
ClientHeight = 417
ClientWidth = 627
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FormStyle = fsMDIChild
Position = poDefaultPosOnly
Visible = True
WindowState = wsMaximized
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 195
Width = 627
Height = 3
Cursor = crVSplit
Align = alTop
Beveled = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 627
Height = 195
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Panel2: TPanel
Left = 0
Top = 0
Width = 627
Height = 29
Hint =
'Standard Mail - NetMail sends one message to multiple recipients' +
#13#10'Mailing List - NetMail sends personalized messages to multiple' +
' recipients'
Align = alTop
BevelOuter = bvNone
ParentShowHint = False
ShowHint = True
TabOrder = 0
object SBSend: TSpeedButton
Left = 2
Top = 3
Width = 70
Height = 24
Caption = 'Send'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF
FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF
FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF
FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF
FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF
00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF
00333333337FFFFF773333333300000003333333337777777333}
NumGlyphs = 2
ParentFont = False
OnClick = SBSendClick
end
object MailLaterBtn: TSpeedButton
Left = 162
Top = 3
Width = 72
Height = 24
Caption = 'Save'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
ParentFont = False
OnClick = MailLaterBtnClick
end
object SBCancel: TSpeedButton
Left = 234
Top = 3
Width = 70
Height = 24
Caption = 'Cancel'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
ParentFont = False
OnClick = SBCancelClick
end
object SpeedButton1: TSpeedButton
Left = 72
Top = 3
Width = 90
Height = 24
Hint = 'Select addresses from mailing list database'
Caption = 'Addressbook'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333C3333333333333337F3333333333333C0C3333
333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
3333333333777333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = AddBookBtnClick
end
object Bevel1: TBevel
Left = 313
Top = 4
Width = 223
Height = 23
Hint =
'Standard Mail - NetMail sends one message to multiple recipients' +
#13#10'Mailing List - NetMail sends personalized messages to multiple' +
' recipients'
ParentShowHint = False
ShowHint = True
end
object RBBulkemail: TRadioButton
Left = 323
Top = 8
Width = 110
Height = 17
Hint =
'Standard Mail - NetMail sends one message to multiple recipients' +
#13#10'Mailing List - NetMail sends personalized messages to multiple' +
' recipients'
Caption = 'Standart Mail'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = True
OnClick = RBBulkemailClick
OnKeyUp = RBBulkemailKeyUp
end
object RBSinglemaillist: TRadioButton
Left = 432
Top = 8
Width = 100
Height = 16
Hint =
'Standard Mail - NetMail sends one message to multiple recipients' +
#13#10'Mailing List - NetMail sends personalized messages to multiple' +
' recipients'
Caption = 'Mailing list'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = RBSinglemaillistClick
OnKeyUp = RBSinglemaillistKeyUp
end
object Panel5: TPanel
Left = 538
Top = 0
Width = 89
Height = 29
Align = alRight
BevelOuter = bvNone
TabOrder = 2
object ExplorerButton5: TExplorerButton
Left = 23
Top = 2
Width = 64
Height = 25
NoFocusBitmap.Data = {
96010000424D9601000000000000760000002800000014000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777777777777777777700007777777777777777777700007777
7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000
0000777076666666666008770000777076666666666008770000777076666666
666008770000777076B666666660087700007770766666666660087700007770
76B66666666008770000777076B66666666008770000777076B6666666600877
0000777076666666666008770000777076666666666008770000777076666666
6660087700007770766666666660087700007770766666666660087700007770
7666666666600877000077707666666666600877000077707777777777770877
0000777000000000000008770000777777777777777777770000}
Bitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Caption = 'Close'
DisabledBitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Layout = blBitmapLeft
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = ExplorerButton5Click
ParentFont = False
IBitmap = {
424D560A00000000000036000000280000001F0000001B000000010018000000
0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000
BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF
FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000
0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000
FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000}
end
end
end
object Panel3: TPanel
Left = 0
Top = 29
Width = 627
Height = 166
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Panel9: TPanel
Left = 0
Top = 0
Width = 627
Height = 109
Align = alClient
BevelOuter = bvNone
Caption = 'Panel9'
TabOrder = 0
object Panel10: TPanel
Left = 0
Top = 0
Width = 623
Height = 109
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Splitter2: TSplitter
Left = 0
Top = 58
Width = 623
Height = 2
Cursor = crVSplit
Align = alBottom
Beveled = False
end
object Panel8: TPanel
Left = 0
Top = 86
Width = 623
Height = 23
Align = alBottom
BevelOuter = bvNone
Caption = 'Panel8'
TabOrder = 0
object MemoBcc: TMemo
Left = 55
Top = 0
Width = 568
Height = 23
Align = alClient
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object StaticText3: TStaticText
Left = 0
Top = 0
Width = 55
Height = 23
Align = alLeft
Caption = ' bcc: '
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 1
end
end
object Panel7: TPanel
Left = 0
Top = 60
Width = 623
Height = 26
Align = alBottom
BevelOuter = bvNone
Caption = 'Panel7'
TabOrder = 1
object MemoCC: TMemo
Left = 55
Top = 0
Width = 568
Height = 26
Align = alClient
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object StaticText2: TStaticText
Left = 0
Top = 0
Width = 55
Height = 26
Align = alLeft
Caption = ' cc: '
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 1
end
end
object Panel6: TPanel
Left = 0
Top = 0
Width = 623
Height = 58
Align = alClient
BevelOuter = bvNone
Caption = 'Panel6'
TabOrder = 2
object MemoTO: TMemo
Left = 55
Top = 0
Width = 568
Height = 58
Align = alClient
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object StaticText1: TStaticText
Left = 0
Top = 0
Width = 55
Height = 58
Align = alLeft
Caption = ' e.mail '
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 1
end
end
end
object Panel11: TPanel
Left = 623
Top = 0
Width = 4
Height = 109
Align = alRight
BevelOuter = bvNone
Color = clSilver
TabOrder = 1
end
end
object Panel4: TPanel
Left = 0
Top = 109
Width = 627
Height = 57
Align = alBottom
BevelOuter = bvNone
Color = clSilver
TabOrder = 1
object Label4: TLabel
Left = 2
Top = 7
Width = 39
Height = 13
Caption = 'Subject:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 4
Top = 33
Width = 62
Height = 13
Caption = 'Attachments:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton4: TSpeedButton
Left = 522
Top = 28
Width = 24
Height = 23
Caption = '...'
OnClick = SpeedButton4Click
end
object SpeedButton2: TSpeedButton
Left = 552
Top = 28
Width = 65
Height = 22
Caption = 'View Attach.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = SpeedButton2Click
end
object AttachmentsLB: TComboBox
Left = 71
Top = 29
Width = 442
Height = 22
Style = csOwnerDrawFixed
Ctl3D = False
DropDownCount = 16
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnDrawItem = AttachmentsLBDrawItem
end
object SubjectEdt: TEdit
Left = 54
Top = 5
Width = 559
Height = 19
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
end
end
end
end
object Memo1: TRichEdit
Left = 0
Top = 253
Width = 627
Height = 164
Align = alClient
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 1
OnChange = Memo1Change
OnSelectionChange = Memo1SelectionChange
end
object Panel12: TPanel
Left = 0
Top = 198
Width = 627
Height = 55
Align = alTop
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Visible = False
object Ruler: TPanel
Left = 0
Top = 27
Width = 627
Height = 28
Align = alClient
Alignment = taLeftJustify
BevelInner = bvLowered
BevelOuter = bvNone
Caption = 'Ruler'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
object FirstInd: TLabel
Left = 2
Top = 2
Width = 10
Height = 9
AutoSize = False
Caption = '�'
DragCursor = crArrow
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Wingdings'
Font.Style = []
ParentFont = False
end
object LeftInd: TLabel
Left = 2
Top = 12
Width = 10
Height = 11
AutoSize = False
Caption = '�'
DragCursor = crArrow
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Wingdings'
Font.Style = []
ParentFont = False
end
object RulerLine: TBevel
Left = 8
Top = 12
Width = 579
Height = 2
Shape = bsTopLine
end
object RightInd: TLabel
Left = 575
Top = 14
Width = 9
Height = 12
Caption = '�'
DragCursor = crArrow
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Wingdings'
Font.Style = []
ParentFont = False
end
end
object ToolBar: TToolBar
Left = 0
Top = 0
Width = 627
Height = 27
ButtonHeight = 21
ButtonWidth = 20
Flat = True
Indent = 3
ParentShowHint = False
ShowHint = True
TabOrder = 1
Wrapable = False
object OpenButton: TToolButton
Left = 3
Top = 0
Width = 20
Height = 21
Hint = 'Open|Open an existing file'
Caption = 'OpenButton'
ImageIndex = 0
end
object SaveButton: TToolButton
Left = 23
Top = 0
Width = 20
Height = 21
Hint = 'Save|Save current file'
Caption = 'SaveButton'
ImageIndex = 1
end
object PrintButton: TToolButton
Left = 43
Top = 0
Width = 20
Height = 21
Hint = 'Print|Print current file'
Caption = 'PrintButton'
ImageIndex = 2
end
object ToolButton5: TToolButton
Left = 63
Top = 0
Width = 16
Height = 21
Caption = 'ToolButton5'
ImageIndex = 3
Style = tbsDivider
end
object UndoButton: TToolButton
Left = 79
Top = 0
Width = 20
Height = 21
Hint = 'Undo|Undo the last action'
Caption = 'UndoButton'
Enabled = False
ImageIndex = 3
end
object CutButton: TToolButton
Left = 99
Top = 0
Width = 20
Height = 21
Hint = 'Cut|Delete selected item'
Caption = 'CutButton'
ImageIndex = 4
end
object CopyButton: TToolButton
Left = 119
Top = 0
Width = 20
Height = 21
Hint = 'Copy|Copy selected item to clipboard'
Caption = 'CopyButton'
ImageIndex = 5
end
object PasteButton: TToolButton
Left = 139
Top = 0
Width = 20
Height = 21
Hint = 'Paste|Paste contents of clipboard'
Caption = 'PasteButton'
ImageIndex = 6
end
object ToolButton10: TToolButton
Left = 159
Top = 0
Width = 8
Height = 21
Caption = 'ToolButton10'
ImageIndex = 7
Style = tbsSeparator
end
object ComboBox1: TComboBox
Left = 167
Top = 0
Width = 145
Height = 21
Hint = 'Font Name|Select font name'
Ctl3D = False
ItemHeight = 13
ParentCtl3D = False
TabOrder = 0
Text = 'FontName'
end
object ToolButton11: TToolButton
Left = 312
Top = 0
Width = 8
Height = 21
Caption = 'ToolButton11'
ImageIndex = 8
Style = tbsSeparator
end
object Edit1: TEdit
Left = 320
Top = 0
Width = 416
Height = 21
Hint = 'Font Size|Select font size'
TabOrder = 1
Text = '0'
end
object UpDown2: TUpDown
Left = 736
Top = 0
Width = 15
Height = 21
Associate = Edit1
Min = 0
Position = 0
TabOrder = 2
Wrap = False
end
object BoldButton: TToolButton
Left = 751
Top = 0
Width = 20
Height = 21
Hint = 'Bold'
Caption = 'BoldButton'
ImageIndex = 7
Style = tbsCheck
end
object ItalicButton: TToolButton
Left = 771
Top = 0
Width = 20
Height = 21
Hint = 'Italic'
Caption = 'ItalicButton'
ImageIndex = 8
Style = tbsCheck
end
object UnderlineButton: TToolButton
Left = 791
Top = 0
Width = 20
Height = 21
Hint = 'Underline'
Caption = 'UnderlineButton'
ImageIndex = 9
Style = tbsCheck
end
object ToolButton16: TToolButton
Left = 811
Top = 0
Width = 17
Height = 21
Caption = 'ToolButton16'
ImageIndex = 12
Style = tbsDivider
end
object LeftAlign: TToolButton
Left = 828
Top = 0
Width = 20
Height = 21
Hint = 'Align Left'
Caption = 'LeftAlign'
Grouped = True
ImageIndex = 10
Style = tbsCheck
end
object CenterAlign: TToolButton
Tag = 2
Left = 848
Top = 0
Width = 20
Height = 21
Hint = 'Center'
Caption = 'CenterAlign'
Grouped = True
ImageIndex = 11
Style = tbsCheck
end
object RightAlign: TToolButton
Tag = 1
Left = 868
Top = 0
Width = 20
Height = 21
Hint = 'Align Right'
Caption = 'RightAlign'
Grouped = True
ImageIndex = 12
Style = tbsCheck
end
object ToolButton20: TToolButton
Left = 888
Top = 0
Width = 12
Height = 21
Caption = 'ToolButton20'
ImageIndex = 15
Style = tbsDivider
end
object BulletsButton: TToolButton
Left = 900
Top = 0
Width = 20
Height = 21
Hint = 'Bullets|Enter bullet mode'
Caption = 'BulletsButton'
ImageIndex = 13
Style = tbsCheck
end
end
end
object TMessage: TTable
DatabaseName = 'VistaMail'
TableName = 'DBMess.db'
TableType = ttParadox
Left = 32
Top = 228
object TMessagePosM: TAutoIncField
FieldName = 'PosM'
end
object TMessageSubject: TStringField
FieldName = 'Subject'
Size = 100
end
object TMessageAttachment: TBooleanField
FieldName = 'Attachment'
end
object TMessageRBSinglemaillist: TBooleanField
FieldName = 'RBSinglemaillist'
end
object TMessageInOutTrash: TIntegerField
FieldName = 'InOutTrash'
end
object TMessageWhen: TDateTimeField
FieldName = 'When'
end
object TMessageSost: TBooleanField
FieldName = 'Sost'
end
object TMessageSend: TBooleanField
FieldName = 'Send'
end
object TMessagePriority: TIntegerField
FieldName = 'Priority'
end
object TMessageSize: TIntegerField
FieldName = 'Size'
end
object TMessageMsgDate: TStringField
FieldName = 'MsgDate'
Size = 25
end
object TMessageAttachStart: TIntegerField
FieldName = 'AttachStart'
end
object TMessageAttachEnd: TIntegerField
FieldName = 'AttachEnd'
end
object TMessagePosBegin: TIntegerField
FieldName = 'PosBegin'
end
object TMessageSizeMessage: TIntegerField
FieldName = 'SizeMessage'
end
object TMessageWhenSend: TDateTimeField
FieldName = 'WhenSend'
end
object TMessageWho: TStringField
FieldName = 'Who'
Size = 50
end
object TMessageOneAddress: TBooleanField
FieldName = 'OneAddress'
Visible = False
end
end
object Tatt: TTable
DatabaseName = 'VistaMail'
TableName = 'dbAtt.db'
TableType = ttParadox
Left = 72
Top = 228
end
object Ttext: TTable
DatabaseName = 'VistaMail'
TableName = 'dbText'
TableType = ttParadox
Left = 112
Top = 228
end
object Tadrmes: TTable
DatabaseName = 'VistaMail'
TableName = 'dbadrmes'
TableType = ttParadox
Left = 152
Top = 228
end
object Qadress: TQuery
OnCalcFields = QadressCalcFields
DatabaseName = 'VistaMail'
SQL.Strings = (
'select * from adress5 , dbadrmes'
'where adress5.PosA= dbadrmes.PosA and'
'dbadrmes.PosM=:a0'
'')
Params.Data = {0100010002613000030400210000000001}
Left = 590
Top = 94
object QadressStrTypeAdress: TStringField
DisplayLabel = ' '
FieldName = 'StrTypeAdress'
Size = 4
Calculated = True
end
object QadressHomeEMail: TStringField
DisplayLabel = 'Home E-Mail'
DisplayWidth = 20
FieldName = 'HomeEMail'
Origin = '"adress5.DB".HomeEMail'
Size = 50
end
object QadressLastName: TStringField
DisplayLabel = 'Last Name'
DisplayWidth = 20
FieldName = 'LastName'
Origin = '"adress5.DB".LastName'
Size = 40
end
object QadressFirstName: TStringField
DisplayLabel = 'First Name'
DisplayWidth = 20
FieldName = 'FirstName'
Origin = '"adress5.DB".FirstName'
Size = 40
end
object QadressTypeAdress: TSmallintField
FieldName = 'TypeAdress'
Origin = '"adress5.DB".TypeAdress'
Visible = False
end
object QadressPosA: TIntegerField
FieldName = 'PosA'
Origin = '"adress5.DB".PosA'
Visible = False
end
object QadressPosM: TIntegerField
FieldName = 'PosM'
Origin = '"adress5.DB".HomeEMail'
Visible = False
end
object QadressPosG: TIntegerField
FieldName = 'PosG'
Origin = '"adress5.DB".FN'
end
end
object QDelete: TQuery
OnCalcFields = QadressCalcFields
DatabaseName = 'VistaMail'
Left = 630
Top = 124
end
object TableIns: TTable
DatabaseName = 'VistaMail'
TableType = ttParadox
Left = 606
Top = 80
end
object QdbAtt: TQuery
DatabaseName = 'VistaMail'
Left = 552
Top = 97
end
end